Marcin MTG Data
3845
Name Edition Count tcgplayer_id
Length:3845 Length:3845 Min. : 1.000 Min. :238607
Class :character Class :character 1st Qu.: 1.000 1st Qu.:239752
Mode :character Mode :character Median : 1.000 Median :240134
Mean : 1.665 Mean :240011
3rd Qu.: 2.000 3rd Qu.:240386
Max. :11.000 Max. :240465
NA's :3698
---
title: "MTG Collection"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: fill
source_code: embed
---
```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(DT)
library(rpivotTable)
library(ggplot2)
library(openintro)
library(highcharter)
library(dplyr)
library(tidyverse)
library(plotly)
library(maps)
library(httr)
library(jsonlite)
```
```{r}
data <- read.csv("~/Documents/GitHub/mtg/data.csv")
collection <- data %>% select('Count','Name', 'Edition','Card.Number')
collection <- setNames(collection, c('count','name','edition','cardNumber'))
library(jsonlite)
MH2.1 <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:mh2%20lang=en&page=1')
MH2.2 <- jsonlite::read_json("https://api.scryfall.com/cards/search?format=json&q=set:mh2%20lang=en&page=2")
library(tidyjson)
MH2 <- data.frame(MH2.1$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))
MH2.2 <- data.frame(MH2.2$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))
MH2 <- rbind(MH2, MH2.2)
MH2 <- MH2[head(seq_len(ncol(MH2)), -1)]
MH2 <- setNames(MH2, c('Name','tcgplayer_id','Edition'))
```
```{r}
```
```{r}
```
Home
==================
Row
------------------
### Data Refreshed July 2021
```{r}
valueBox(paste('Marcin MTG Data'),
color = '#063970')
```
### Count of Cards
```{r}
valueBox(length(collection$name),
icon = 'fa-tree')
```
Full Collection Table
========================
```{r}
dataSummary <- data %>% select('Name','Edition','Count')
dataSummary <- left_join(dataSummary, MH2, by = c('Edition','Name'))
datatable(dataSummary,
caption = 'Full Ratings Table',
rownames = T,
filter = 'top',
options= list(pageLength = 25))
summary(dataSummary)
```